home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 11 / 011.d81 / disk enlarger (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  628 b   |  24 lines
  1. 10 print"[147]poking -->";
  2. 20 p=49152
  3. 30 reada$:ifa$="end"then100
  4. 40 l=asc(mid$(a$,2,1))
  5. 50 h=asc(mid$(a$,1,1))
  6. 60 l=l-48:ifl>9thenl=l-7
  7. 70 h=h-48:ifh>9thenh=h-7
  8. 80 print""p;
  9. 90 b=h*16+l:pokep,b:t=t+b:p=p+1:goto30
  10. 100 ift<>14352thenprint"mistake in data --> recheck your data lines":end
  11. 110 print"done":sys49152
  12. 1000 dataa5,9d,c9,80,f0,19,08,c0
  13. 1001 dataf7,81,81,81,75,75,75,f4
  14. 1002 data84,76,a5,b4,b6,ad,b0,84
  15. 1003 dataaa,b3,b3,b0,b7,85,f6,a0
  16. 1004 data00,b9,08,c0,38,e9,64,20
  17. 1005 datad2,ff,c8,c0,17,d0,f2,b9
  18. 1006 data08,c0,d0,0a,88,84,ad,b9
  19. 1007 data08,c0,85,b4,f0,ca,a9,00
  20. 1008 data85,fb,a2,00,a0,00,8e,20
  21. 1009 datad0,8c,21,d0,e6,fb,d0,f9
  22. 1010 datac8,d0,f6,e8,e0,10,d0,ec
  23. 1011 data8c,20,d0,8c,21,d0,60,end
  24.